home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / data / dora / dorarttl.plp < prev    next >
Text File  |  1995-08-04  |  4KB  |  121 lines
  1. %readCFG{
  2.     var N[30];N:={0};var No[2];No:={0};
  3.     %Atyplog NET|{????.LOG};
  4.     %Btyplog {*.*};
  5.     %RTTLCcfg @read(RTcfg|{\rttlc.cfg});
  6.     footnote({rttlc.cfgからオプションデータを読み込みます});wait(2);
  7.     case    (@exist(RTTLCcfg,Atyplog) || @exist(RTTLCcfg,Btyplog),
  8.         {Yes},{
  9.         loop    ({    N:=N+1;
  10.             %a    @getline(RTTLCcfg,N,1);
  11.             case    (a={},    
  12.                 {Yes},{im({No})},,
  13.                 {case    (@exist(a,Atyplog)||@exist(a,Btyplog),
  14.                     {Yes},
  15.                     {RTop:=@body(@getline(RTTLCcfg,
  16.                         N+1,1),{→},{ -D});
  17.                     im({No})
  18.                     },
  19.                     {No},{im({Yes})}
  20.                     );
  21.                 });
  22.             });
  23.         });
  24.     };
  25. %DoRtexe{
  26.     case    (@tail(@version,{for },{ })={Win31},
  27.         {Yes},{exec(@body(RTTLC,,{.EXE})|{WIN.EXE})},
  28.         {No},{command(RTTLC)}
  29.         );
  30.     };
  31. %Rttlc{
  32.     case(RTTLC={},
  33.     {Yes},
  34.     {
  35.     loop({    SNDMSG({erande_f.snd});
  36.     %a @plane(
  37.     {c ログカッターRTTLC最新版は、\n}|
  38.     {cFBBS(NIFTY)のLIB 5にアップされています。\n}|
  39.     {s 既にダウンロードは済んでいますか？ /はい　/いいえ \n},
  40.         );
  41.     %ok    @head(@getline(a,1,1),{\n});
  42.             case    (ok,{ 1},
  43. 　                {
  44. footnote({自動実行させる為に「ディレクトリの設定」での登録をお勧めします});
  45.     SNDMSG({nyuryo_f.snd});
  46.     RTTLdir:=@input({RTTLC.EXEをﾄﾞﾗｲﾌﾞ名からのﾌﾙﾊﾟｽで入力して下さい});
  47.     case(@tail(RTTLC,{\})={RTTLC.EXE},
  48.     {Yes},{command(RTTL);footnote({ＲＴＴＬＣ実行中  })},
  49.     {No},{footnote({RTTLC.EXEをﾄﾞﾗｲﾌﾞ名からのﾌﾙﾊﾟｽで入力}|
  50.             {して下さい});SNDMSG({okasi_f.snd});wait(3)});
  51.                 },
  52.                 { 2},{display({
  53. \n☆ログカッターRTTLC最新版(’93/05/11現在)のお知らせ☆
  54. \n＞LIB 5\n番号  ID       登録日付 バイト  参照   データ名\n222  HCB01371 93/04/21   60149   12 B RTTLC200.LZH RT･TLC Ver2.00 RT用LOGｶｯﾀｰ});
  55. footnote({ログカッターRTTLCをFBBS(NIFTY)のLIB 5からﾀﾞｳﾝﾛｰﾄﾞして下さい｡});
  56.                     wait(5);im({No})},
  57.                     ,{im({No})}
  58.                 );
  59.             });
  60.     },
  61.     {No},{
  62.         case    (RtTyp,
  63.             {cfg},
  64.             {footnote({ＲＴＴＬＣ実行中});DoRtexe},
  65.             {com},
  66.             {case    ( @filechk(TEMP2|{rttlc.cfg}),
  67.                 {Yes},
  68.                 {delfile(TEMP2|{rttlc.cfg})}
  69.                 );
  70.             case    (RTop={},
  71.                 {Yes},
  72.                 {readCFG}
  73.                 );
  74.             %RThed @im({- 登録番号 01 ---------------------------}|
  75.                 {------------------------------------}|CRLF|
  76.                 {使用／未使用→使用});
  77.             %RTin @im({ファイル名  →}|LOG2|NET|{????.LOG});
  78.             %RTend @im(CRLF|{- 登録番号 02 ---------------------}|
  79.             {------------------------------------------}|CRLF);
  80.                 write(TEMP2|{rttlc.cfg},RThed|
  81.                 CRLF|RTin|{\n}|{オプション  →}
  82.                 |RTop|{ -D}|RTTLdir|{\}|CRLF|RTend);
  83.                 setcdir(TEMP);footnote({ＲＴＴＬＣ実行中});
  84.                 DoRtexe},
  85.             {new},
  86.             {case    ( @filechk(TEMP2|{rttlc.cfg}),
  87.                 {Yes},
  88.                 {delfile(TEMP2|{rttlc.cfg})}
  89.                 );
  90.             %RThed @im({- 登録番号 01 ---------------------------}|
  91.                 {------------------------------------}|CRLF|
  92.                 {使用／未使用→使用});
  93.             %RTin @im({ファイル名  →}|LOG2|{\FNEWS\FB????.new});
  94.             %RTend @im(CRLF|{- 登録番号 02 ---------------------}|
  95.             {------------------------------------------}|CRLF);
  96.                 write(TEMP2|{rttlc.cfg},RThed|
  97.                 CRLF|RTin|{\n}|{オプション  →}|
  98.                 {-K -d -D}|LOG2|{\FNEWS\}|CRLF|RTend);
  99.                 setcdir(TEMP);footnote({ＲＴＴＬＣ実行中});
  100.                 DoRtexe
  101.  
  102.             });
  103.         });
  104.     /*delfile(TEMP2|{rttlc.cfg});*/
  105.     im({Yes});
  106.     };
  107.     footnote({受信ログを整理します});
  108.     var RtTyp[3];
  109.     SNDMSG({kaknin_f.snd});
  110.     select    ({RTTLC.EXEを実行します},
  111.         Wtime4,{im({Yes})},
  112.         { 登録した全てのネットのログを整理 },
  113.         {RtTyp:={cfg};Rttlc;im({No})},
  114.         { }|NET|{ネット単独のログを整理 },
  115.         {RtTyp:={com};Rttlc;im({No})},
  116.         { }|NET|{ネットＮＥＷＳログを整理 },
  117.         {RtTyp:={new};Rttlc;im({No})},
  118.         { 実行しない },{im({Yes})}
  119.         );
  120.     White;
  121.